**Analyses for creating Figure 1**
ttest clinton_traits if treatment<3, by(treatment)
ttest clinton_traits if treatment>1, by(treatment)
ttest clinton_traits if treatment!=2, by(treatment)

ttest clinton_traits if treatment<3 & high_sj==1, by(treatment)
ttest clinton_traits if treatment>1 & high_sj==1, by(treatment)
ttest clinton_traits if treatment!=2 & high_sj==1, by(treatment)

ttest clinton_traits if treatment<3 & high_sj==0, by(treatment)
ttest clinton_traits if treatment>1 & high_sj==0, by(treatment)
ttest clinton_traits if treatment!=2 & high_sj==0, by(treatment)

**Analysis for Figure 2**
logit vote_clinton partisanship ideology female age educ white family_income c.econ_threat##c.system_justification modern_sexism traditional_sexism racial_resentment south [pw=weight]
margins, at(econ_threat=(1(1)5) system_justification=(1.5(2)3.5))
marginsplot, recastci(rline)

**Analyses for Figure 3**
reg clinton_traits i.treatment##c.system_justification##c.modern_sexism
margins, dydx(treatment) at(modern_sexism=(1(1)5) system_justification=3.5) 
marginsplot, recastci(rline)

reg clinton_traits i.treatment##c.system_justification##c.traditional_sexism
margins, dydx(treatment) at(traditional_sexism=(1(1)5) system_justification=3.5) 
marginsplot, recastci(rline)

**Analyses for Figure 4**
logit vote_clinton partisanship ideology female age educ white family_income c.econ_threat##c.system_justification##c.modern_sexism traditional_sexism racial_resentment south [pw=weight]
margins, dydx(econ_threat) at(modern_sexism=(1(1)5) system_justification=3.5)
marginsplot, recastci(rline)

logit vote_clinton partisanship ideology female age educ white family_income c.econ_threat##c.system_justification##c.traditional_sexism modern_sexism racial_resentment south [pw=weight]
margins, dydx(econ_threat) at(traditional_sexism=(1(1)5) system_justification=3.5)
marginsplot, recastci(rline)
